<script>on mouseupset the scroll of fld "ValidList" to 0-- if there is a fld (value(word 2 of the clickline) + 8) thenif line (value(word 2 of the clickline)) of fld "SRClist" <> "" thenselect line (word 2 of the clickline) to (word 2 of the clickline) of fld "SRClist"lockONput fld (value(word 2 of the clickline) + 8) into field "ValidList"killEmptyLinesboldCommonValueslockOFFselect line (word 2 of the clickline) to (word 2 of the clickline) of fld "SRClist"elsekillEmptyLinesend ifend mouseupon boldCommonValuesif the number of lines in field "common" > 0 thenlockONrepeat with x = 1 to the number of lines in fld "common"-- set cursor to busyrepeat with y = 1 to the number of lines in fld "validList"if value(line x of fld "common" ) = value(line y of fld "validList" ) then set the textstyle of line y of fld "validList" to "bold,condense"end repeatend repeatlockOFFelseanswer "There are no common values available." & return & "You must Re calculate"end ifend boldCommonValues</script>
</part>
<part>
<id>2</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>133</left>
<top>28</top>
<right>219</right>
<bottom>163</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>ValidList</name>
<script></script>
</part>
<part>
<id>3</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>129</left>
<top>219</top>
<right>213</right>
<bottom>340</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Common</name>
<script></script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>8</left>
<top>1</top>
<right>119</right>
<bottom>28</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<textHeight>12</textHeight>
<name>L1</name>
<script></script>
</part>
<part>
<id>5</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>124</left>
<top>1</top>
<right>227</right>
<bottom>28</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<textHeight>12</textHeight>
<name>L2</name>
<script></script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>106</left>
<top>190</top>
<right>218</right>
<bottom>218</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>shadow</textStyle>
<textStyle>bold</textStyle>
<textHeight>13</textHeight>
<name>L3</name>
<script></script>
</part>
<part>
<id>9</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>11</left>
<top>194</top>
<right>102</right>
<bottom>214</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<name>Calculate</name>
<script>on mouseUpglobal fromCalcButtonplainTextput true into fromCalcButtonput " " into fld "common"put "" into fld "validList"if the icon of bg btn "edit" = 201 then send mouseup to bg btn "edit"if the number of lines in fld "SRClist"< 1 thenanswer "There are no valid source pict dimensions." & return & "You must enter valid dimensions."exit mouseupend if-- create any needed storage reference fields and all needed dynamic variables for speedier comparingif the number of lines in fld "SRClist" > the number of fields - 8 thenrepeat with listHolder = 1 to the number of lines in fld "SRClist"set the cursor to busylockONif there is no fld (listHolder + 8) then myNewLineStorage,(listHolder + 8)lockOFFend repeatend ifrepeat with listHolder = 1 to the number of lines in fld "SRClist"do "global" && "ValidHolder" & listHolderend repeat-- calculate all the valid tile values for each line in the sourcepict dimension list and fill them into-- the dynamic global variables ValidHolder<x> to create a text block array type of dohickyput false into badValrepeat with linNum = 1 to the number of lines in fld "SRClist"set the cursor to busyput figureData (linNum, line linNum of fld "SRClist") into entryTypeif entryType = -1 thenbeepanswer "Invalid Data in line"&& linNum && "of the source pict dimensions list." & return & return & "Check your dimensions and ensure only two sets of numerals are entered, seperated by spaces."exit mouseupend ifput value(word entryType of line linNum of fld "SRClist") into selDimif selDim > 200000 thenbeepanswer "Maximum vertical dimension is 200,000." & return & return & "Make sure all source pict values are below 200,000 before you calculate."exit mouseupend if-- fix invalid source pict dimensions to the closest value divisible by fourif selDim / 4 <> round(selDim / 4) thenput getCloseDiv4(selDim) into selDimput selDim into word entryType of line linNum of fld "SRClist"set the textstyle of word entryType of line linNum of fld "SRClist" to "bold,condense"end ifput selDim / 4 into selDimQrtrput "" into fld(linNum + 8)do "put" && quote && quote && "into ValidHolder" & (linNum)if selDimQrtr = round(selDim / 4) then -- calculate valid tile valuesput selDimQrtr into selDimrepeat with x = selDim down to 1 -- if valid sourcepict dimension then calc valid tile values and fill array itemset the cursor to busyif selDim / x = (round(selDim / x)) then do "put selDim / x & return after ValidHolder" & (linNum)end repeatrepeat with y = 1 to the number of lines in fld "SRClist" -- dump all array items into matching fieldsset the cursor to busydo "put ValidHolder" & y && "into fld" && (y + 8)end repeatelse -- cancel line entryanswer "The sourcepict dimension at line" && linNum && "is not evenly divisible by 4, alter it and re-calculate"put true into badValexit repeatend ifend repeatif badVal = false then getCommonValsIn the number of lines in fld "SRClist" -- Compare all the valid valuesif value(line 1 of fld "common") <> 1 then -- Bad Databeepanswer "Bad comparison detected, the calculated values seem to be out of range." & return & return & "Check your dimensions and ensure only numerals are entered."end ifset the cursor to arrowend mouseUpon getCommonValsIn sourceContainersglobal nums -- declare dynamic global variables locallyput sourceContainers into numsrepeat with times = 1 to sourceContainersdo "global" && "ValidHolder" & timesend repeatrepeat with currCompareFld = 2 to sourceContainers -- containers to crosscheckdeleteBadValsFromSource 1, currCompareFldend repeatput ValidHolder1 into fld "common"end getCommonValsInon deleteBadValsFromSource currFld, currCompareFldput 1 into currLineglobal nums -- declare dynamic global variables locallyrepeat with timesa = 1 to numsdo "global" && "ValidHolder" & timesaend repeatrepeat with currLineLoop = 1 to (the number of lines in fld currCompareFld + 8) -- lines in current container to crosscheckrepeat while currVal <> emptyput currLine + 1 into currLineset the cursor to busydo "put value(line " & currLine & " of ValidHolder" & currFld & ") into currVal"do "put the number of lines of ValidHolder" & currCompareFld & " into compareFldMaxLines"if currValExistInContainer(currVal, currCompareFld, compareFldMaxLines) = false thendo "delete line " & currLine & " of ValidHolder" & CurrFldput currLine - 1 into currLineend ifend repeatend repeatend deleteBadValsFromSourcefunction currValExistInContainer currVal, currCompareFld, compareFldMaxLinesglobal nums -- declare dynamic global variables locallyrepeat with timesa = 1 to numsdo "global" && "ValidHolder" & timesaend repeatput false into currValExistInContainerrepeat with compareFldCurrLine = 1 to compareFldMaxLinesdo "put value(line " & compareFldCurrLine & " of ValidHolder" & currCompareFld & ") into compareVal"if currVal <> compareVal then put true into thisCompareValIsBadelse put false into thisCompareValIsBadif thisCompareValIsBad = false then put true into currValExistInContainerend repeatreturn currValExistInContainerend currValExistInContainerfunction figureData linNum, figureDataput the number of words of figureData into entryTypeif entryType > 2 then put -1 into entryTypeif entryType <> -1 thenif entryType = 2 thenput value(word 1 of line linNum of fld "SRClist") into numput getCloseDiv4(num) into newNumif newNum <> num thenput newNum into word 1 of line linNum of fld "SRClist"set the textstyle of word 1 of line linNum of fld "SRClist" to "bold,condense"end ifend ifend ifreturn entryTypeend figureDatafunction getCloseDiv4 valif val / 4 <> round(val / 4) then put (round((val + 1) / 4) * 4) into valreturn valend getCloseDiv4</script>
</part>
<part>
<id>10</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>24</left>
<top>226</top>
<right>58</right>
<bottom>260</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>203</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mousedownset the icon of me to 204repeat while the mouse is downif the mouseloc is within the rect of me then set the icon of me to 204else set the icon of me to 203end repeatset the icon of me to 203if the mouseloc is within the rect of me thenlockONdomenu "New Card"end ifend mousedown</script>
</part>
<part>
<id>11</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>99</left>
<top>22</top>
<right>121</right>
<bottom>40</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>200</icon>
<textAlign>center</textAlign>
<font>Charcoal</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Edit</name>
<script>on mouseUpglobal myDimList, myNewDimList, fromCalcButtonwait 10 ticksif the optionkey is down then plainTextif the icon of me = "200" thenput fld "SRClist" into myDimListset the icon of me to "201"set the locktext of field "SRCList" to falseput fld "SRClist" into myNewDimListelseset the icon of me to "200"set the locktext of field "SRCList" to truefixSpaceskillEmptyLinesput fld "SRClist" into myNewDimListend ifif fromCalcButton = false thenif myDimList <> myNewDimList then answer "The dimension list has been modified." & return & "You must Re-calculate"end ifput false into fromCalcButtonend mouseUp</script>
<script>on mouseUpif the short name of me is "Show Information" thenset the rect of this card to 0,0,512,352set the name of me to "Hide Information"fixlineelseset the rect of this card to 0,0,224,352set the name of me to "Show Information"end ifend mouseUp</script>
</part>
<part>
<id>1318</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>27</left>
<top>166</top>
<right>49</right>
<bottom>188</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>206</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>FindButton</name>
<script>on mouseUpglobal findstring, lastFindTypeask "Enter the search term you wish to find in the 'User Set' field:" with findstringput the number of this cd into currCardif it is not empty thenput it into findstringput "Set" into lastFindTypefind findstring in fld "user set"if the number of this card = currCard thenset lockscreen to truego nextfind findstring in fld "user set"set lockscreen to falseend ifend ifend mouseUp</script>
</part>
<part>
<id>2459</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>487</left>
<top>116</top>
<right>509</right>
<bottom>138</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>205</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>FindInstructions</name>
<script>on mouseUpglobal howfindstring, lastFindTypeask "Enter the search term you wish to find in the 'How to use this stack' field:" with howfindstringif it is not empty thenput it into howfindstringput "How" into lastFindTypety howfindstringend ifend mouseUp</script>
</part>
<part>
<id>4455</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>156</left>
<top>125</top>
<right>356</right>
<bottom>210</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>4456</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>156</left>
<top>125</top>
<right>356</right>
<bottom>210</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>4457</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>156</left>
<top>125</top>
<right>356</right>
<bottom>210</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>4458</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>156</left>
<top>125</top>
<right>356</right>
<bottom>210</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>4459</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>156</left>
<top>125</top>
<right>356</right>
<bottom>210</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>4460</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>156</left>
<top>125</top>
<right>356</right>
<bottom>210</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>4461</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>156</left>
<top>125</top>
<right>356</right>
<bottom>210</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>4462</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>156</left>
<top>125</top>
<right>356</right>
<bottom>210</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>4463</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>156</left>
<top>125</top>
<right>356</right>
<bottom>210</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>4464</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>156</left>
<top>125</top>
<right>356</right>
<bottom>210</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>4465</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>156</left>
<top>125</top>
<right>356</right>
<bottom>210</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<name></name>
<script>--- Version 1.0--- CopyRight ﾂｩ1998 by SQUAMISH Media Group--- All Rights Reserved--- created by: David Solomonon openstackglobal hScrlput 0 into hScrlend openstackon closestackset the scroll of fld "HowUse" to 0end closestackon newCardchoose "browse" toollockONput "Source Pict Dimensions" into fld "L1"put "Valid Tile Values for Selected Dim" into fld "L2"put "Common Valid" & return & "Tile Values" into fld "L3"put bg fld 7 of cd 1 into bg fld 7boldInstructionHeadersfixline truelockOFFend newCardon opencardglobal hScrlfixline falsechoose "browse" toolset the scroll of fld "HowUse" to hScrlput "" into fld "validList"set the name of bg btn 6 to the number of this card & " / " & the number of cards in this stackif the number of lines in fld "SRClist" > the number of fields - 8 thenlockONrepeat with x = 1 to the number of lines in fld "SRClist"set the cursor to busymyNewLineStorage, ( x + 8)end repeatlockOFFend ifset the cursor to arrowend opencardon closecardglobal hScrlchoose "browse" toolif the icon of bg btn "edit" = 201 then send mouseup to bg btn "edit"put "" into fld "validList"put the scroll of fld "HowUse" into hScrlend closecardon myNewLineStorage fldNumif there is a fld fldNum thenput 9 into uelsedomenu "Background"domenu "New Field"set the locktext of fld the number of fields to trueset the visible of fld the number of fields to falsedomenu "Background"end ifchoose "browse" toolend myNewLineStorageon boldInstructionHeaders-- put "1,5,6,10,11,20,33,40" into lineListput "1,6,11,22,37,51" into lineListrepeat with currBoldLine = 1 to the number of items in lineListset the textstyle of line value(item currBoldLine of lineList) of fld "HowUse" to "bold"set the textfont of line value(item currBoldLine of lineList) of fld "HowUse" to "Geneva"end repeatend boldInstructionHeaderson lockONset lockscreen to trueset lockmessages to trueend lockONon lockOFFset lockscreen to falseset lockmessages to falseend lockOFFon killEmptyLinesput true into emptyLinerepeat while emptyLine = true-- set the cursor to busyif the number of lines in fld "SRClist" < 1 then put false into emptyLineif line (the number of lines in fld "SRClist") of fld "SRClist" = "" thendelete line the number of lines in fld "SRClist" of fld "SRClist"elseput false into emptyLineend ifend repeatrepeat with y = 1 to 20-- set the cursor to busyrepeat with x = 1 to the number of lines in fld "SRClist"if line x of fld "SRClist" = "" then delete line x of fld "SRClist"end repeatend repeatset the cursor to arrowend killEmptyLineson fixSpacesrepeat with x = 1 to the number of lines in fld "SRClist"put line x of fld "SRClist" into theFixLinesif the number of words in theFixLines > 1 thenput word 1 of theFixLines into bestLinerepeat with b = 1 to (16 - (the number of chars in word 2 of theFixLines * 2))put " " after bestLineend repeatput word 2 of theFixLines after bestLineput bestLine into line x of fld "SRClist"elseput word 1 of theFixLines into bestLineend ifend repeatif word 1 of bestLine = 0 then put empty into line x of fld "SRClist"end fixSpaceson fixline fromNewCardput the lockscreen into prevStateset the lockscreen to trueset linesize to 1if item 3 of the rect of this card > 300 thenset pattern to 1choose select tooldoMenu "select" -- kill line if it existschoose "pencil" tooldrag from 236,137 to 479,137end ifif fromNewCard is true thenset pattern to 6choose line tooldrag from 58,41 to 58,161end ifchoose "browse" toolset the lockscreen to prevStateend fixlineon ty termglobal hits, searchContainer, currHitInHits, maxhits, oldTermif term is not oldTerm thenput search ( fld "howuse", term, true, "all") into hitsput term into oldTermput 1 into currHitInHitsput the number of lines in hits into maxHitsput search ( fld "howuse", term, true, "all") into hitsend ifif hits is empty then answer "Sorry, couldn't find " & quote & term & quote & " in the instructions."else select char value(item 3 of line currHitInHits of hits) to value(item 3 of line currHitInHits of hits) + the number of chars in term -1 of fld "howuse"put currHitInHits + 1 into currHitInHitsif currHitInHits > maxHits then put 1 into currHitInHitsend tyon plainTextrepeat with r = 1 to the number of lines in fld "SRClist"set the textstyle of line r of fld "SRClist" to "plain"end repeatend plainTexton commandKeyDown whichKeyglobal lastFindType, howfindstring, findstringif whichKey = "G" thenif lastFindType is not empty thenif lastFindType = "How" then ty howfindstringif lastFindType = "Set" thenset lockscreen to truego nextset lockscreen to falsefind findstring in fld "user set"if the result is "not found" thengo backend ifend ifend ifelsepass commandKeyDownend ifend commandKeyDown--- Not Used in Program --- Dev Use ONLY ---on killfieldsrepeat with k = the number of flds down to 9delete field kend repeatend killfieldson emptyfieldsrepeat with k = the number of flds down to 9put empty into field kend repeatend emptyfieldson getboldrepeat with l = 1 to the number of lines in field "HowUse"if the textstyle of line l of fld "HowUse" = "bold" then put l & "," after boldLinesend repeatput boldLinesend getboldon litset the locktext of fld "howuse" to trueend liton uitset the locktext of fld "howuse" to falseend uit</script>
